Joo 
aoa 
Jju4 
au4 
Joo 
aod4 
au4 
oau4 
Jju4 
saou4 
au4 
au 
aou4 
Jjouu4 
ays 


ee) 
ee eee 
ee ee 


**F ILE**1D**NMLDISC 


ww and 
Ou wu 
ow vw 
ww a) 
Ow is 
ou hoe 
ou Se aed 
PETE Vu 


VVVYVYVUYUUUWY 
VYVYVVYVYUYYUYY 


ow NNNMW 
nw nw mn 
ow Ow nw 
ow nw nw 
PyTy, nw mown 
nn nn —— 
Ww NW mw 
NNNMN mn 
NYNNNM nn 
~~ —e 
ed pemoenes 


nt Od ad nd and Od Dad Bet Od Bed) md Od Oat Bd 
Od td Oy 9 Od Od at OG nd dd 


— —- 
=~ — 
20200000000 
S866660886 
ea 2a 
ee aa 
ro 4 aa 
ee aa 
$s aa 
$s aa 
28202080000000084 
S86666666668684 

«fad 
ated 
a4 
ahat 
pr pw | 
ond ah 
afad 
a4 
Se ee ee 
a 


nw MMWMwn 
nn MMW 
nw nw mn 
“nw nw nw 
ow nw nn 
nn nw nn 
on nw nn 
WwW nw ww 
MNMNM AoAd 
MNnNM nn 
a ae 


et 
— oe 
—) 
a 
a4 
44 
a4 
44 
aa 
aed 
at ah od I Od I I I I I I I I 
ee ee eee 


N 7 
NML Disconnect parameter module 16-Sep-1984 00:14:1 VA 32 V4.0-74 Pp | 
? eae RRe 985g Natalee eRe eee sees prsc.esesne% cr} 


ZTITLE "NML Disconnect parameter module’ 

MODULE NMLSDISCONNECT ( 
LANGUAGE (BLISS3 
ADDRESSING_MODE (NOME NTERWAL =GENERAL), 
ADDRESSING MO DE (EXTERNAL=GENERAL) , 

= 


eo 


i geeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeetetteeeenrereeeneeeeeeeeneeeeeeeeeeeee 
'@ 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copree 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ay Typ d NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
* 
+ 
* 
© 
® 
* 
ie TRANSFERRED. ® 
® 
wy 
® 
® 
® 
® 
® 
® 
® 
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ee were disconnected. 
v03-001 MKP0003 Kathy Perko ag be 

Add double search key to SoscONNeCt oun” LINKS WITH 
NODE <node name>. 


v02-003 mMKP0002 Kathy Perko 25-0c t-1981 


0 '® 
02 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0s '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Bs ? CORPORATION. 
O0S ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
009 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
0031 f esualeabasiaeeienubepincinpeheaatesidenabiahainehiaeenieteamnsanille A tadinmieantdtond dita aan Ai eens 
0 1 
0033 
0034 
0035 
0036 ‘ 
44 ABSTRACT: 
9444 These routines process all NCP DISCONNECT commands. 
0041 ENVIRONMENT: VAX/VMS Operating System 
004 i AUTHOR: Kathy Perko 
0044 ‘ 
0045 ' CREATION DATE: 6-Sept-1981 
0046 ‘ 
Bpee : MODIFIED BY: 
0049 ! V03-002 MKP0004 Kathy Perko 1-March-1983 
Fix DISC LINKS so it returns an EOF message if no 
; 
' 
' 
' 
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FACILITY: DECnet-VAX V2.0 Network Management Listener 
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or RE. eee aalente gem IESS01986 (9:14:18 YPRCUIMBALSHERE Abc aP ES onsc.os2:% 


3 2 28 1! Ghange +i A AD. = sconnect so no node name 
: 26 ! $s required in le command. 

: 61 061 1 v02=002 mxP0001 athy Perko 18-Sept-1981 
.. @ 062 1! x NLSDISCKNOWN. so yehat if a Link goes away 
; 6 0065 1! i! the read and the eleconnect. no error 
$ 3 Bere ! } is returned to NCP. 

> 66 0066 1: 

; «OF 0067 1 


* af 
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NMLSDISCONNECT NML Disconnect parameter module 16-Sep-1984 00:14:10 VAX-11 Bliss-32 V4.0-74 Page 3 
v04-000 Declarations 14-Sep-1984 12:50:08 DISKSVMSMASTER: CNM SRC JNMLDISC.B32;1 (2) 
: 69 068 1 XSBTTL Declarations’ | 
: 0 069 1 
i 2 070 1! 
3 7 0071 1 ! TABLE OF CONTENTS: 
a 2 OOre 1! 
: 76 00735 1 
; 75 0074 1 Sama ROUTINE 
° 76 0075 «1 NMLS$DISCKNOWN : NOVALUE, 
: 77 0076 1 NML_GETLINKLIST, 
a. eo 0077 1 NMLSDISCONNECT : NOVALUE; : 
: 9 0078 #1 . 
; 0079 1! : 
; 81 0080 1 ! INCLUDE FILES: ° 
; § 0081 1! ° 
cr © Bo8s 1 ° 
: 84 008 1 LIBRARY ‘LIBS:NMLLIB.L32'; e 
: 85 0084 1 LIBRARY eee es: te RY. 32"; ° 
4 86 0085 1 LIBRARY at Ng 7 ° 
H 87 0086 1 LIBRARY ‘SYS LIBRARY: STARLET. L32'; ’ 
. oo. 0087 1 
: 6489 0088 1! 
3 90 0089 1 ! EXTERNAL REFERENCES: 
: 91 00 13 
a, 0091 1 
ys. 0092 1 SNML_EXTDEF; 
3 | (94 0093 (1 
; 95 0094 1 EXTERNAL ROUTINE 
; 0095 1 NMLSBLDP2 
: «97 0096 1 LD P 
;s 0097 1 NMLS$GETEXEADR, 
; 99 0098 1 ETQIO, 
; 100 0099 1 NMLSSEND 
: 101 0100 1 NMLSERROR_1; 
: 102 0101 1 


° 
3 


NML$T_P2BU FER : VECTOR CNM $k P2BUFLEN, BYTSJ, 
NMLSAB_ENTITY_BUF : BBLOCK [20]; 


wo 
= 
4 
LJ 


NML$Q_P2BFDSC = UPLIT (NMLSK_P2BUFLEN, NMLST_P2BUFFER) : DESCRIPTOR; 
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inks' 
E_PST 


1 
1 
ZSBTTL "NMLSDISCKNOWN Disconnect known i 


14 n 

i GLOBAL ROUTINE NMLSDISCKNOWN (ENTITY, NODE_PST, NODE_LEN, NODE_ADR) : NOVALUE = 
13 '+¢ 

18 } FUNCTIONAL DESCRIPTION: 

0 ! This routine disconnects all Links with all nodes or all Links 

1 with a specified node. 

: i FORMAT PARAMETERS: 

4 : ENTITY Internal NML entity code (NML$C_LINKS> 

5 ! NODE_PST Parameter Semantic Table (PST) entry of node 

6 } (name or address) from which to disconnect Links. 
7 : NODE _LEN Length of disconnect node ID. 

: NODE _ADR Address of disconnect node ID. 

0 
31 BEGIN 
3 LOCAL 

NFB : REF BB 


uw 


LOCK 
P2DSC_ =: DESCRIPTOR, 
STATUS, 


STRTFLG 
LINK_CNT, 


STRDSC_ : DESCRIPTOR, 
MSGSIZE 


Count of Links returned by NETACP in 
P4 buffer 


Descriptor of Link for NICE response msg. 


' 
i 
! Length of response message. 


' 
: NFB to disconnect a Link. 


DONA UEWN "CO OONOUS WN —O0On 


P SNFBDSC (DISC_LINK_NFBDSC, DELETE, , LLI . 
P ~LLN ' Search key 1 = Link number, oper! = eql 
P sNFBSC_WILDCARD, ! Search key 2 = wildcard, oper2 = neq 
NMLPID 
GETLIST : BBLOCK (12) ! $GETJPI List to get NML's PID. 
INITIAL ( WORD (4 ' Buffer Length 
JPIS_PID), i Request PI 
LONG (NMLPID, ' Address to receive PID 
0)), ! Don't need Length. 


I0SB : $10SB; 


' 

i Get PID for NML. If NML is not running in the local node, it is 
: cath ing to NCP via a logical Link. Therefore, don't disconnect 
; that Link. Use the PID to tell which Link is NML's Link to NCP. 


STATUS = SGETJP] (ITMLST = GETLIST, 
10SB = I0SB); 
IF NOT .STAT 


| 
Us OR 

NOT .I10SB CIOS$W_STATUS] THEN 
! Signal an error. | 
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0-74 Page 
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NMLSERROR_1 (NMASC_STS_MPR); 


.NODE_PST, .NODE_LEN, .NODE_ADR) DO 


BEGIN : 

STRTFLG = TRUE; 

PTR = .NML$GQ_2I0BFDSC CDSCSA_POINTER); 

WHILE (LINK CRT = .LINK_CNT -"1) GEQ 0°00 
NMLSBLDP2 (0, ..PTR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
Tell NETACP to disconnect the Link. 
STATUS = NMLSNETQIO ( DISC_LINK_NFBDSC, P2DSC, 0, 0); 
Build response message for disconnected Link. 
if .STATUS THEN 


N 
NMLSAB_MSGBLOCK FRSBS6-CODE) = 0 


te ; 
7 : ; 
74 ! Set up the Link 4 descriptor for the NICE response message. : 
75 ! The Link ID consists of a byte of 0 followed by a word of the : 
£8 Link number. ; 
78 STRDSC FOSCSu_LENGTH] = 3; ; 
79 STRDSC CDSCSA_POINTER] = NMLSAB_ENTITY_BUF; i 
80 NMLSAB_ENTITY_BUF<0,8> = 0; ; 
a STRTFLG = FALSE; . 
83 Get a List of links to disconnect from NETACP. ; 

WHILE NML_GETLINKLIST (.STRTFLG, NML$GQ_QIOBFDSC, LINK_CNT, .NMLPID, ; 


NMLSAB-MSGBLOCK CMSBS$B-CODE] = NML$_STS_SUC; 
NMLSGL-PRS_FLGS CNMLS$V~PRS_ENTITY_FOUND] = TRUE; 


ND; 
CHSMOVE (2, .PTR, .STRDSC COSCSA_POINTER] + 1); 


i If the Link went away before it could be disconnected 
don't build a response message for it. 


iF .STATUS NEQ NML$_STS_CMP THEN 


NMLSAB_MSGBLOCK CMSBSV_ENTD Fup) = 1; 
NMLSAB-MSGBLOCK CMSBSA = STRDSC 
NMLSBLO_REPLY (NMLSAB ASGBLOCK, MSGSIZE 
NAL SSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


SIERRA LS SSLESEASLESEIEAL 


NOU EWN OO ONOULSWN "OO 0OnN 


—s 


' 
} Advance pointer to next Link in the buffer. 
PTR = .PTR + 4; 
END; 
END; 
If no Links were disconnected, return an error message. 


iF NOT .NMLSGL_PRS_FLGS CNMLSV_PRS_ENTITY_FOUND) THEN 


PROPIPIPOPIPONGNOPIPOPININOPIPIPINININININININININININID 3 3 29 9 3 


RIP IPIPINIGER BSS HT & BBE EE PUNE SEPP PLP PwW 


RONOMNONONUNIND 2 OO 


se | aaa . 
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espe REL OEE 
MSB$B- 
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9 
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pa Sens (NALSABY SNDBOF 
!o 


1fsen-96 


FRee ee 
ee 


LJ 

(xk, 
MSGS 

MLSDISC_KNOWN_LINKS 


MSB 

NMA 

osu, NMA 
SGS 

BOF ER IZE); 
N 
TITLE 

- IDENT 

»PSECT 


- LONG 


12:50:08 


Detail flag 
Missing component status 
Links 


-LONG 104 
-ADDRESS NMLST_P2BUFFER 
-ADDRESS U.1 


AX-11 Bliss-32 V Page 
ISKSVMSMA 


Vv 
D TER: CMM she NMLDISC.832;1 


Waroangueree NML Disconnect parameter module 


SPLITS,NOWRT ,NOEXE,2 


Bete Ge Se 


~PSECT SOWNS,NOEXE,2 


00000 NMLS$T =Pemerens 


104 
00068 NMLS$AB “ENTITY _BUF : 
-BLKB™ 20 
21 0007C ;_ 
071 .BYTE 33 : 
00 0007D “BYTE 0 ; 
08 O007E “BYTE 8 ; 
00 0007F -BYTE 0 ; 
08010012 00080 “LONG 134283282 ; 
00000001 00084 LONG 1 ; 
00 00088 -BYTE 0 ; 
00 00089 -BYTE 0 ; 
0000 008A “WORD 0 ; 
00000000 0008¢ -LONG 0 ; 
00090 NMLPID: .BLKB 4 
9 0004 00094 GETLIST:.WORD 4, 793 ; 
00000000" 00098 -ADDRESS NMLPID ; 
00000000 0009¢ -LONG 0 ; 
OOOAO 10SB: <:BLKB 8 
NML.$Q_P2BFDSC= P.AAA 
U.d= P.AAB 
-EXTRN NML$GB_EVTSRCTYP 
-EXTRN NMLS$GQ-EVTSRCDSC 
-EXTRN NMLSGW-EVTCLASS 
-EXTRN NMLSGB~EVTMSKTYP 
-EXTRN NMLSGQ"~EVTMSKDSC 
-EXTRN NMLSGW~EVTSNKADR 
-EXTRN NMLSGWACP_CHAN 
-EXTRN NMLSGL-LOGMASK, NMLS$GQ_ENTSTRDSC 
-EXTRN NMLSAB~QIOBUFFER 
-EXTRN NML$GQ~Q10BFDSC 
XTRN MAL $ABWEXEBUE FER 
EXTRN NMLSGL-EXEDATPTR 


| H 8 
NAL CONNECT NML Disconnect parameter module 16-Sep-1984 00:14:1 VAX-11 Bliss-32 V 
va di NMLSDISCKNOWN. 5 > 1e-ge- 138s 99:25:48 3 


sconnect known Links DISKSVMSMASTER: NM. OSRCSNMLDISC. 832; (79 © a) 


| 
| 
“NML_NMV, NAL SAB PRMSEM | 
~EXTRN NMLSAB AB-RECBUF * WML SAL _ENTINE TAB 
-EXTRN NMLSAL~PERMINET 
~EXTRN wit Sau W-PRM_DES NAL $68. CMD_VER 
-EXTRN NMLSGB-ENTITY_COD 
~EXTRN NAL SB ENTITY? FORMAT 
eEXTRN WAL SGL “QUALIFTER_P 
-EXTRN NMLS$GB_ QUA UAL IF TER FORMAT 
| 
| 


*EXTRN NALSGB 

*EXTRN NML$GB_OPTIONS 
*EXTRN NAL $GL “tite NACSCL. PRS_FLGS 
-EXTRN NMLSGL_NM NTiTY 


«EXTRN NMLS$GQ- NET TRAMDSC 
~EXTRN NALS CO” RECBFOSC 
EXTRN pte PRMDESCNT 


-EXTRN NMLSBLBOP2, NMLSBLD_REPLY 
“EXTRN NAL SOE TEXEADR NL SN NETOIO 
“EXTRN NML$S NMLSERROR_1 
: N SYSS$GET at The 
-PSECT SCODES$,NOWRT,2 
OFFC 00000 ENTRY NAL SD SCKNOUN, Save R2,R3.R4,R5,R6,R7.R8,.- = 0112 
5B 000000006 00 9€ 0000 MOVAB NMLSSEND, R11 : 
A 006 MOVAB NMLSAB SNDBUF FER R10 ; 
9 06 9€ 0001 MOVAB NMLSBLD_REPLY, R9 : 
8 006 9 0001 MOVAB NMLSGL_PRS_ FLEéS" RB : 
5 00000° 9E O016 MOVAB 10sB. R7 : 
56 000000006 H 0 MOV NML$AB_MSGBLOCK, R6 : 
SE 18 ¢ 99 c SUBL2 #24, SP ; 
ze ¢ f CLRO. 0s = (SP) > 0164 
57 0D 9 | PUSHL R7 : 
Fo OA? OOF PUSHAB GETLIST F 
7E 7¢ CLROQ ~(SP) : 
7 D4 CLRL = = (SP) ; | 
000000006 Q F A CALLS #7, SYSSGETUPI : 
D 1 VL RO. STA : 
£ 4 BLBC STATUS " + 0165 | 
A £8 7 BLBS gs8, é : 166 | 
E 5 CE A 1$ MNE GL » =(SP) : 01 
06 0 1 FB D CALLS #1, NMLSERROR_1 ; 
AE ; 8 4 2% MOVW #3. STRDSC : 0175 
C AE cg A é 8 MOVAB NMCSAB_ENTITY_BUF, STRDSC+4 ; 176 
(8 aA? OO CLRB = NMLSAB~ENTITY~BUF > 0177 | 
54 D4 CLRL = STRTFLG : ed 
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$e C AE gO 

1 Ree 
ANB 

ee: 

000000006 6 +4 

00000000v 99 i 4 
23 1 D 

3 000000006 ye Dd 

i 

10 Ag oF 

00000000° ! oF 

E 04 

rae te 

tft 

000000006 00 96 fe 
18 ya oF 

00000000° oF 

000000006 99 4 fe 
:e 

04 A6 ot 90 

68 08 88 

01 Ae 63 B80 
FFFFFFFO 8F 55 (D1 
18 13 

66 10 4 

14 AG 08 AE 9E 

04 AE OF 

56 DD 

69 02 FB 

04 AE OD 

34 +4 

Sto g it 

1B 68 03 3 
66 4 

04 A6 3 

08 A6 8 
“ae 

69 33 FB 

04 AE OD 

5A 0D 

68 02 fe 


; Routine Size: 279 bytes, Routine Base: S$CODE$ + 0000 


-Sep-19 VAX-11 Bliss-32 v4.0-7 9 
15-S00-1944 99: 43; 08 DISKSVMSMASTER:CNML. sre NMLDISC.832;1 feee 4) 
MOVL STRDSC 4, R : 02 
38: ROvG—NODE_LEN, Re sp) : 183 
A PUSHL NODE~P : 
PUSHL wae PID 3 0182 | 
PUSHAB 3 
7 PUSHAB mt san O10BF DSC : 
7 PUSHL  STRTFL : | 
CALLS #7, NML_GETLINKLIST : 
BLBC 3=E- «aR. 7S : 
MOVL #1, STRTIFLG : 0185 
MOVL § NML$GQ QIOBFDSC+4, PTR : Qi 
0 F 4$: DECL NK_CRT : 018 
| BLSS ; 
9 PUSHAB P2DSC + 0189 
96 PUSHAB NML$Q_P2BFDSC ; 
9C CLRL = = (SP) : 
O09 MNEGL #1, -(SP) : 
OA PUSHL (PTR) : 
0 a CLRL.  =(SP) : 
OOA CALLS #6, NMLSBLDP2 : 
OAC CLRO 20s = ( §P) : 0193 
OAE PUSHAB P2DSC : 
081 PUSHAB U. : 
0087 CALLS #4, NM SNETQIO F 
008 MOVL RO, STATUS : 
00C BLBC ATUS, + 0197 
00C4 CLRL §NMLS$AB’ MSGBLOCK : 9199 
006 MOVE #1, NMCSAB_MSGBLOCK+4 + 0200 
OOCA BISB2 8, QiMt$ou PRS_FLGS : 0201 
00CD S$: MOVW (R2) : 0203 
0001 CMPL 1 ' 6 : 0208 
0008 BEQL es F 
OODA BISS2 #16, NMLS$AB_MSGBLOCK : 0 10 
00D MOVAB STROS¢ NMLSAB_MSGBLOCK+20 : 0211 
O0E PUSHAB MSGSIZE : 0212 
00E PUSHL : 
Qoe7 CALLS NMLSBLD_REPLY : 
OOEA PUSHL MSGSIZE : 0213 
O0ED PUSHL : 
OOEF CALLS #2, NL SSEND : 
OOF2 6$: ADDL2 #4. PTR : 0218 
OOF BRB 4 : 0187 
OOF? 7$: BBS #3, NMLSGL_PRS FLGS, 4 3 0224 
FB MOVL #2, NMLSAB_MSGBL ; $ 
FE MNEGR #8. NMLSAB™ “RS CBLOCK+4 ; 
1 MOVW #7, NMLSAB_MSGBLOCK+8 : 8 8 
1 PUSHAB MSGSIZE : 0229 
1 PUSHL Rs F 
1 CALLS #2, NMLSBLD_REPLY : 
1 PUSHL mSGSiZE : 0230 
11 PUSHL RI : 
113 CALLS #2, NMLSSEND : 
0116 8$: ET : 0232 


33 
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Vokes NAL _GETLINKL gt” Get a List of Links to discon i ~300 71387 90:15:08 DISKSVMSMASTER: CNML.SRCIJNMLDISC.B32;1 . (5) 
7 ZSBITL "NML_GETLINKLIST Get a List of Links to disconnect’ 
3 ROUTINE NML_GETLINKLIST ( GET_STARTED, LISDSC, ENTRY_COUNT, NMLPID, 
NODE_PST, NODE_LEN, NODE_ADRY = 


'e¢ 

! FUNCTIONAL DESCRIPTION: 

: This routine gets a bufferfull of currently active logical Links 
from NETACP. This bufferfull will be either known Links or known 

Links on a specified node. The routine can be iteratively called 


FEW 


to get more bufferfulls, until all Links have been processed. 


INPUTS: 
GET_STARTED If false, this is the first call, so build 
anew P2 buffer and start at the beginning 
of the ACPs database. 
LISDSC Address at which to return descriptor address 
of the P4 buffer (which is full of Links and 
their PIDs 
Count of Links in the P4 buffer. 
PID of NML process. This Link must be disconnected 


last. 
NODE _PST Parameter Semantic Table (PST) entry of node 
(name or address) from which to disconnect Links. 
NODE _LEN Length of disconnect node ID. 
NODE __ADR Address of disconnect node ID. 


IMPLICIT INPUTS: ; 
NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] Set if Links on a specified 
node are to be returned. 


OOOOCOCCCCCOCSOOSCOCO 


ENTRY_COUNT 
NMLPIB 
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MOM 


Re ee eet eet ee ee te et 


CSOOCOCOCOCOCOSOOSOOSOOOOOOOOOOoOoOOoO 


NML$GQ_ENTSTRDSC Descriptor for node name or number. 

64 oo 

65 

$8 
P 0268 SNFBDSC ( GET_KNOWN_LINKS, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, LLI 
P 0269 »NFBSC_WILDCARD, ' Search key 1 = wildcard oper! = eql 
P 0270 *PID, RFBSC_OP_NEQ i Search key 2 = NML's PID, oper2 = neq 
P 0271 LLN ! Return Link number 

2 5; 

7 

74 MAP 

75 NODE PST: REF BBLOCK 

, GET_RNOWN_LINKS : DESCRIPTOR; 

7 OWN 

7 


Ps BUFFER : BBLOCK CNMLSK_P2BUFLEN], 
P2BSC : DESCRIPTOR; 


P2_BUF_DSC = UPLIT ( NMLSK_P2BUFLEN, P2_BUFFER) : DESCRIPTOR; 
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FB : REF BBLOCK, 
SEARCH_KEY_LEN, 
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CONNECT NML Disc t parameter module 16-Sep-1984 00:14: VAX-11 Bliss-32 V4.0-74 Pa 1 
vor NAL GETLINKLIST™ Get a List of Links to discon 12-808- 1382 90: 45508 STEKSVMEHASTERSCWAC SRCINMLDISC.B32:1 = (3) 
STATUS 
MSGSIZE; 


1 

: The first time this routine is called, GET_STARTED should be false. 
; if $0. build a P2 buffer with a search 7 with the nege id, or 

i @ wildcard search key. The search key tells NETACP which Links 

to return. 


if NOT .GET_STARTED THEN 


NFB = .GET_KNOWN LINKS COSCSA_POINTER]; 
IF .NMLSGLIPRS_FCGS CNML V_PRS_QUALIFIER] THEN 


i The NICE command was DISCONNECT KNOWN LINKS WITH 
NODE <node id>. 


BEGIN 

SEARCH KEY_LEN = .NODE_L 

NFB CNFBSL_SRCH_KEY) = 

IF .SEARCH-KEY_CEN EQL i) 
i Set the search key up to be the node address. 


BEGIN 

SEARCH_KEY_VAL = » (NODE AOR) <0,16>; 

IF .SEARCH"KEY_ VAL EQL O- THEN 
NMCSGETEXEADR (SEARCH_KEY_VAL); 
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EN; 
NODE _PST CPSTSL_NFBID); 
THER 


END 

ELSE . 
; Set the search key up to be the node name. 
SEARCH_KEY_VAL = .NODE_ADR; 

END 


ELSE 


1 
i The NICE command was a DISCONNECT KNOWN LINKS. 

' Clear search hey 1 and oper 1 in case a DISCONNECT 
KNOWN LINKS WITH NODE <node id> was done previously. 
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BEGIN 
NFB CNFBSL_SRCH KEV) = 0; 
NFB CNFBSB~OPERJ = 0; 

SEARCH_KEY-LEN = -1; 

SEARCH-KEY-VAL = 0; 


ND; 
NMLSBLDPS (. SEARCH_KEY_LEN, ~ SEARCH KEY_VAL, 9 .NMLPID, 
P2_BuF_BSC, P2bsC); 
END; 
STATUS = NMLSNETQIO ( GET_KNOWN_LINKS, P2DSC, P3, .LISDSC); 
IF NOT -STATUS AND (.STATUS NEQ NML$_STS_CMP) THEN 


NALSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
SSIGNAL[MSG (NMLSAB_SRDBUFFER, .MSGSIZE); 
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1 END; 


-ENTRY_COUNT = .(.P2DSC CDSCSA_POINTER)); 
RETURN” ~ STATUS; 


END; ! of NML_GETLINKLIST 
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FUNCTIONAL DESCRIPTION: 
This routine disconnects a sinlge Link with the specified node. 
FORMAL PARAMETERS: 


ENTITY NML$C_LINKS = Not used. 
LINK Word-sized Link address. 


nN 8 
onnect parameter module 16-Sep-1984 00:14:1 AxX-11 iss- 4. 
ONNECT Disconnect single Link 12280871382 99:25:58 | Weed w Shag Fea schac 
ZSBTTL "NMLSDISCONNECT Disconnect single Link’ 
GLOBAL ROUTINE NMLSDISCONNECT (ENTITY, LINK) : NOVALUE = 
144 
1 
i 


IMPLICIT INPUTS: 
NML$GQ_ENTSTRDSC Contains the node ID. 


LINK : WORD; 


SNFBDSC ( DISC_LINK_NFBDSC, DELETE, , LLI 
LL ' Search key one 
sNFBSC_WILDCARD, | Search key two 


Link number, oper! = eql 
wildcard, oper2 = eql 


LOCAL 
STATUS, 


P2DSC 
MSGSIZE; 
1 


i Build the P2 buffer to tell NETACP which Link to disconnect. Then, 
perform the disconnect. 


NMLSBLDP2 ( 0, .LINK, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
IF NML$NETQIO (DISC_LINK.NFBDSC, P2DSC, 0,0) THEN 


N 
NMLSAB_MSGBLOCK [MSBSL_FLAGS) = 0; 
NMLSAB_MSGBLOCK CMSBSB~CODE) = NMASC_STS_SUC; 


END; 
NMLSBLD’ REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
NML$SEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


END; ! of NMLSDISCONNECT 


014 600s0 P.AAE: .LONG 20 
000° 00024 -ADDRESS U.5 


-PSECT SOWNS,NOEXE ,2 


0-74 P 
OSRCINMLDISC.B32:1°° 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


ie 1S semana 
v04-000 


Routine Size: 


U.6 


1$: 


! End of module 
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04 Ae DD 00040 
00000000G 00 9F Bones 
000000006 00 02 FB 00056 
04 0005D 
94 bytes, Routine Base: SCODES + 0101 
0401 1 
Bele 1 END 
0403 1 
0404 0 ELUDOM 


PSECT SUMMARY 


~EXTRN 
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16-Sep-1984 00:14:1 VAX=11 Bliss-32 V4.0-74 P 
10368-19Re 19345508 DT SKSVMSMASTERSCNML SRCINMLDISC.B32;1°%° 
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154285262 
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P.AAE 


SCODES,NOWRT,2 


NMLSDISCONNECT, Save R2 
>? ae emai R2 


sP° 
NML$Q_P2BF DSC 
-(SP) 

#1, -(SP) 
LINK, =(SP) 
#6, NMLSBLDP2 


(§P) 
P2DSC 


U. 
#4, NMLSNETQIO 


RO, 
NML$AB_MSGBLOCK 

#1, NMCSAB_MSGBLOCK+4 
ms6SIZE 


#2, NMLSBLD_REPLY 
MSGSIZ 
NMLSAB_SNDBUFFER 
#2, NMCSSEND 


LIBSSIGNAL 


15 
(6) 
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NAL Disconnec 
NMLS$DISCONNEC 


NMLSDISCONNECT 
v04-0 
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COMMAND QUALIFIERS 


DISKSVMSMASTER: CNM” sre NMLDISC.B32; " 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NMLDISC/OBJ=OBJ$:NMLDISC MSRC$:NMLDISC/UPDATE=(ENHS:NMLDISC) 


_ 559 code 3 368 data bytes 


; Lines/CPU Min: 
: Lexemes/CPU-Min: 


tion. Complete 
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